home *** CD-ROM | disk | FTP | other *** search
/ Storybook Weaver Deluxe / Storybook Weaver Deluxe (Version 2.1)(The Learning Company)(1998).ISO / pc / inst_32 / sorter.mps < prev    next >
Text File  |  1998-05-13  |  18KB  |  875 lines
  1. ;=========================================================
  2. ;======================= SORTER.MPS ======================
  3. ;=========================================================
  4. ; ETHAN
  5. ;
  6. ;
  7. ;
  8. ;
  9. ;
  10. ; REQUIRED RESOURCE: SORTER.RSC
  11.  
  12. ;=== INITIAL COVERS ===
  13. yield off
  14.    Scene 2000
  15.    rrIn=OMAnimation 106 142 2514
  16.       set rrIn touchy 0
  17.       set rrIn movable 0
  18.       set rrIn z 1
  19.    matIn=OMAnimation 384 12 2515
  20.       set matIn touchy 0
  21.       set matIn movable 0
  22.    mitIn=OMAnimation 0 175 2516
  23.       set mitIn touchy 0
  24.       set mitIn movable 0
  25.       set mitIn z 0
  26.    discardBin=OMAnimation 413 30 2503
  27.       set discardBin movable 0
  28.       set discardBin z 0
  29.    lever=OMAnimation 413 30 2506
  30.       set lever touchy 0
  31.       set lever movable 0
  32.       set lever z 2
  33.    cushion=OMAnimation 413 30 2510
  34.       set cushion touchy 0
  35.       set cushion movable 0
  36.       set cushion z 0
  37.    shelves=OMAnimation 413 30 2512
  38.       set shelves movable 0
  39.       set shelves z 0
  40.    shooter=OMAnimation 413 30 2513
  41.       set shooter touchy 0
  42.       set shooter movable 0
  43.       set shooter z 0
  44.    goButton=OMAnimation 111 33 2549
  45.       set goButton movable 0
  46.       set goButton touchy 0
  47.    shelfAll=OMAnimation 517 1 2556
  48.       set shelfAll x 513
  49.       set shelfAll visible 0
  50.       set shelfAll movable 0
  51.       set shelfAll z 0
  52.    resetButton=RPButton 462 447 10042
  53.       set resetButton hit resetHdlr
  54.    continueButton=RPButton 553 447 10041
  55.       set continueButton hit continueHdlr
  56. yield on
  57.  
  58. yield off
  59.    play rrIn
  60.    play matIn
  61.    play mitIn
  62. yield on
  63.  
  64. procedure dummy
  65. [
  66. ]
  67.  
  68. set rrIn paused instructions
  69.  
  70. ;=== GLOBALS ===
  71. totalRight=0
  72. totalWrong=0
  73. total=0
  74. value=0
  75. correctOnShelf=0
  76. areWeDoneYet=0
  77. number=0
  78.  
  79. ;=== CONSTANTS ===
  80. kWordInDelay=0.85
  81. ; WORD ON PILLOW
  82. wordAArray=[ 10020 10021 10022 10023 10024 10025 10026 10027 10028 10029
  83. ; WORD ON SHELF
  84. wordBArray=[ 10030 10021 10032 10033 10024 10025 10036 10027 10038 10029
  85. ; BOX
  86. box=1
  87. ; WORD SAID BY READER
  88. rrWordArray=[ 2789 2704 2790 2791 2912 2733 2794 2809 2795 2783
  89. ; VALUE ARRAY
  90. valArray=[ 1 0 1 1 0 0 1 0 1 0
  91. ; X1 POS
  92. X1Pos=[ 305 308 313 314 307 311 312 315 309 311
  93. ; Y1 POS
  94. Y1Pos=[ 190 193 189 189 190 193 188 192 189 192
  95. ; X2 POS
  96. X2Pos=[ 537 539 544 545 537 543 544 547 542 542
  97. ; Y2 POS
  98. Y2Pos=[ 97 101 98 97 99 102 96 99 97 99
  99.  
  100. for cnt 0 9
  101. [
  102.    status.cnt=1
  103. ]
  104.  
  105. procedure instructions
  106. [
  107.    yield off
  108.    drop rrIn
  109.    drop mitIn
  110.    rrIntro=OMAnimation 106 142 2517
  111.    set rrIntro movable 0
  112.    set rrIntro z 2
  113.    mitAm=OMAnimation 330 396 2564
  114.    set mitAm mouseDown play_mit
  115.    set mitAm movable 0
  116.    set mitAm z 1
  117.    set mitAm touchy 0
  118.    yield on
  119.    yield off
  120.    play rrIntro
  121.    set rrIntro paused waitForButton
  122.    yield on
  123. ]
  124. ;=======================================
  125. ;=== INSTRUCTIONS AND INTRO ===
  126. ;=======================================
  127.  
  128. procedure waitForButton
  129. [
  130.    yield off
  131.    set mitAm touchy 1
  132.    set goButton touchy 1
  133.    set goButton mouseDown playButton
  134.    yield on
  135. ]
  136. ;=======================================
  137. ;=== WAIT FOR BUTTON ===
  138. ;=======================================
  139.  
  140. procedure playButton
  141. [
  142.    yield off
  143.    set mitAm touchy 0
  144.    play goButton
  145.    set goButton paused defineTarget
  146.    yield on
  147. ]
  148. ;=======================================
  149. ;=== PLAY BUTTON ===
  150. ;=======================================
  151.  
  152. procedure defineTarget
  153. [
  154.    yield off
  155.    drop rrIntro
  156.    set goButton touchy 0
  157.    rrBeginSndIs=OMAnimation 106 142 2609
  158.    set rrBeginSndIs movable 0
  159.    jxx=OMAnimation 300 60 10040
  160.    set jxx x 300
  161.    set jxx y 60
  162.    set jxx z 0
  163.    set jxx movable 0
  164.    set jxx touchy 0
  165.    yield on
  166.    pause 4
  167.    yield off
  168.    rrJSnd=OMAnimation 106 142 2659
  169.    set rrJSnd movable 0
  170.    set rrJSnd paused theBrain
  171.    yield on
  172. ]
  173. ;=======================================
  174. ;=== J _ _ ===
  175. ;=======================================
  176.  
  177. procedure theBrain
  178. [
  179.    rnd=?
  180.    status.rnd=0
  181.    box=rnd+1
  182.    call crankWord
  183. ]
  184. ;=======================================
  185. ;=== THEBRAIN ===
  186. ;=======================================
  187.  
  188. procedure crankWord
  189. [
  190.    yield off
  191.    drop rrBeginSndIs
  192.    drop rrJSnd
  193.    set goButton touchy 0
  194.    set lever visible 0
  195.    set cushion visible 1
  196.    rrCrank=OMAnimation 202 148 2600
  197.    set rrCrank touchy 0
  198.    set rrCrank movable 0
  199.    yield on
  200.    pause 3
  201.    yield off
  202.    set shooter visible 0
  203.    set goButton visible 0
  204.    boxIn=OMAnimation 30 0 2552
  205.    set boxIn touchy 0
  206.    set boxIn movable 0
  207.    set boxIn z 1
  208.    set boxIn special bounce.0
  209.    set boxIn paused waitForInput
  210.    yield on   
  211.    pause 1
  212.    set cushion visible 0
  213. ]
  214. ;=======================================
  215. ;=== CRANKS AND WORD ===
  216. ;=======================================
  217.  
  218. procedure bounce.0
  219. [
  220.    yield off
  221.    get boxIn param 1 Code
  222.    if -2000=Code
  223.    [
  224.       word=OMAnimation 302 178 wordAArray.box
  225.       set word x X1Pos.box
  226.       set word y Y1Pos.box
  227.       set word z 1
  228.       set word touchy 0
  229.       set word movable 0
  230.    ]
  231.    if -2003=Code
  232.    [
  233.       get boxIn param 3 change
  234.       play word offset 0 change
  235.    ]
  236.    yield on
  237. ]   
  238. ;=======================================
  239. ;=== BOUNCE 0 ===
  240. ;=======================================
  241.  
  242. procedure waitForInput
  243. [
  244.    yield off
  245.    set lever visible 1
  246.    set cushion visible 0
  247.    drop rrCrank
  248.    rrWord=OMAnimation 106 142 rrWordArray.box
  249.    set rrWord touchy 0
  250.    set rrWord movable 0
  251.    value=valArray.box
  252.    ;=== HOTSPOTS ===
  253.    keeper=RHotSpot 519 34 639 395
  254.    discard=RHotSpot 230 262 418 383
  255.    set keeper hit keepWord
  256.    set discard hit trashWord
  257.    set mitAm touchy 1
  258.    yield on
  259. ]
  260. ;=======================================
  261. ;=== WORD IS DISPLAYED, WAITING FOR USER INTERACTION ===
  262. ;=======================================
  263.  
  264.  
  265. procedure keepWord
  266. [
  267.    yield off
  268.    drop keeper
  269.    drop discard
  270.    set mitAm touchy 0
  271.    set cushion visible 0
  272.    set shooter visible 1
  273.    set goButton visible 1
  274.    drop word
  275.    drop boxIn
  276.    keeperAO=OMAnimation 268 84 2555
  277.    set keeperAO touchy 0
  278.    set keeperAO movable 0
  279.    set keeperAO z 0
  280.    set keeperAO special bounce.1
  281.    set keeperAO paused retextWord
  282.    word.0=OMAnimation 302 178 wordBArray.box
  283.    set word.0 x X1Pos.box
  284.    set word.0 y Y1Pos.box-10
  285.    set word.0 touchy 0
  286.    set word.0 movable 0
  287.    if value=1
  288.    [
  289.       totalRight=totalRight+1
  290.       correctOnShelf=correctOnShelf+1
  291.    ]
  292.    else
  293.    [
  294.       totalWrong=totalWrong+1
  295.    ]
  296.    yield on
  297. ]
  298. ;=======================================
  299. ;=== PLACE WORD ON SHELF ===
  300. ;=======================================
  301.  
  302. procedure bounce.1
  303. [
  304.    yield off
  305.    get keeperAO param 1 Code
  306.    if -2001=Code
  307.    [
  308.       drop word.0
  309.    ]
  310.    if -2003=Code
  311.    [
  312.       get keeperAO param 2 P2
  313.       get keeperAO param 3 P3
  314.       play word offset P2 P3
  315.    ]
  316.    yield on
  317. ]   
  318. ;=======================================
  319. ;=== BOUNCE 1 ===
  320. ;=======================================
  321.  
  322. procedure retextWord
  323. [
  324.    yield off
  325.    drop word
  326.    set cushion visible 1
  327.    set shelves visible 0
  328.    set shelfAll visible 1
  329.    shelfText.total=OMAnimation 537 150 wordBArray.box
  330.    set shelfText.total x X2Pos.box
  331.    set shelfText.total y Y2Pos.box
  332.    set shelfText.total z 99
  333.    set shelfText.total touchy 0
  334.    set shelfText.total movable 0
  335.    total=total+1
  336.    call check_total
  337.    if areWeDoneYet=1
  338.    [
  339.       set shelfAll paused dummy
  340.       call completion.1
  341.    ]
  342.    else
  343.    [
  344.       set shelfAll special shiftWords
  345.       set shelfAll paused keepOnGoing
  346.       play shelfAll
  347.    ]
  348.    yield on
  349. ]   
  350. ;=======================================
  351. ;=== PUT WORD BACK ON BOX ===
  352. ;=======================================
  353.  
  354.  
  355. procedure shiftWords
  356. [
  357.    yield off
  358.    get shelfAll param 1 Code
  359.    if -2003=Code
  360.    [
  361.       play shelfText.0 offset 0 9
  362.       play shelfText.1 offset 0 9
  363.       play shelfText.2 offset 0 9
  364.       play shelfText.3 offset 0 9
  365.       drop keeperAO
  366.    ]
  367.    yield on
  368. ]
  369. ;=======================================
  370. ;=== SHIFT WORDS WITH SHELF ===
  371. ;=======================================
  372.  
  373. procedure trashWord
  374. [
  375.    yield off
  376.    set mitAm touchy 0
  377.    drop keeper
  378.    drop discard
  379.    drop boxIn
  380.    set discardBin visible 0
  381.    set cushion visible 0
  382.    set shooter visible 1
  383.    set goButton visible 1
  384.    discardAO=OMAnimation 251 201 2554
  385.    set discardAO touchy 0
  386.    set discardAO movable 0
  387.    set discardAO z 0
  388.    set discardAO special bounce.2
  389.    set discardAO paused keepOnGoing
  390.    if value=0
  391.    [
  392.       totalRight=totalRight+1
  393.    ]
  394.    else
  395.    [
  396.       totalWrong=totalWrong+1
  397.    ]
  398.    yield on
  399. ]
  400. ;=======================================
  401. ;=== TRASH WORD ===
  402. ;=======================================
  403.  
  404. procedure bounce.2
  405. [
  406.    yield off
  407.    get discardAO param 1 Code
  408.    if -2001=Code
  409.    [
  410.       drop word
  411.    ]
  412.    if -2003=Code
  413.    [
  414.       get discardAO param 2 P2
  415.       get discardAO param 3 P3
  416.       play word offset P2 P3
  417.    ]
  418.    yield on
  419. ]   
  420. ;=======================================
  421. ;=== BOUNCE 1 ===
  422. ;=======================================
  423.  
  424. procedure keepOnGoing
  425. [
  426.    yield off
  427.    set discardBin visible 1
  428.    drop discardAO
  429.    say number
  430.    if number=9
  431.    [
  432.       set cushion visible 1
  433.       call completion.0
  434.    ]
  435.    else
  436.    [
  437.       drop rrWord
  438.       rnd=?
  439.       for (status.rnd#1)
  440.       [
  441.          rnd=?
  442.       ]
  443.       status.rnd=0
  444.       box=rnd+1
  445.  
  446.       call crankWord
  447.    ]
  448.    number=number+1
  449.    yield on
  450. ]
  451. ;=======================================
  452. ;=== KEEPONGOING ===
  453. ;=======================================
  454.  
  455. procedure completion.0
  456. [
  457.    yield off
  458.    if correctOnShelf>0
  459.    [
  460.       ; AT LEAST ONE RIGHT ANSWER
  461.       some=OMAnimation 106 142 2617
  462.       set some touchy 0
  463.       set some movable 0
  464.       set some z 99
  465.       set some paused sayJuh.0
  466.    ]
  467.    else
  468.    [
  469.       call boxOut.total
  470.    ]
  471.    yield on
  472. ]
  473. ;=======================================
  474. ;=== COMPLETION_0 ===
  475. ;=======================================
  476.  
  477. procedure sayJuh.0
  478. [
  479.    pause 0.5
  480.    yield off
  481.    drop some
  482.    juh=OMAnimation 201 144 2659
  483.    set juh touchy 0
  484.    set juh moveable 0
  485.    yield on
  486.    call boxOut.total
  487. ]
  488. ;=======================================
  489. ;=== SAYJUH.0 ===
  490. ;=======================================
  491.  
  492. procedure boxOut.1
  493. [
  494.    yield off
  495.    drop shelfAll
  496.    bottomCover=OMAnimation 0 0 2505
  497.    set bottomCover z 99
  498.    set bottomCover touchy 0
  499.    set bottomCover movable 0
  500.    shelfOut=OMAnimation 512 0 2612
  501.    set shelfOut x 512
  502.    set shelfOut y 0
  503.    set shelfOut z 0
  504.    set shelfOut touchy 0
  505.    set shelfOut movable 0
  506.    set shelfOut special loseWords
  507.    set shelfOut paused fin
  508.    yield on
  509. ]
  510. ;=======================================
  511. ;=== BOXOUT.1 ===
  512. ;=======================================
  513.  
  514. procedure boxOut.2
  515. [
  516.    yield off
  517.    drop shelfAll
  518.    bottomCover=OMAnimation 0 0 2505
  519.    set bottomCover z 99
  520.    set bottomCover touchy 0
  521.    set bottomCover movable 0
  522.    shelfOut=OMAnimation 512 0 2613
  523.    set shelfOut x 512
  524.    set shelfOut y 0
  525.    set shelfOut z 0
  526.    set shelfOut touchy 0
  527.    set shelfOut movable 0
  528.    set shelfOut special loseWords
  529.    set shelfOut paused fin
  530.    yield on
  531. ]
  532. ;=======================================
  533. ;=== BOXOUT.2 ===
  534. ;=======================================
  535.  
  536. procedure boxOut.3
  537. [
  538.    yield off
  539.    drop shelfAll
  540.    bottomCover=OMAnimation 0 0 2505
  541.    set bottomCover z 99
  542.    set bottomCover touchy 0
  543.    set bottomCover movable 0
  544.    shelfOut=OMAnimation 512 0 2614
  545.    set shelfOut x 512
  546.    set shelfOut y 0
  547.    set shelfOut z 0
  548.    set shelfOut touchy 0
  549.    set shelfOut movable 0
  550.    set shelfOut special loseWords
  551.    set shelfOut paused fin
  552.    yield on
  553. ]
  554. ;=======================================
  555. ;=== BOXOUT.3 ===
  556. ;=======================================
  557.  
  558. procedure boxOut.4
  559. [
  560.    yield off
  561.    drop shelfAll
  562.    bottomCover=OMAnimation 0 0 2505
  563.    set bottomCover z 99
  564.    set bottomCover touchy 0
  565.    set bottomCover movable 0
  566.    shelfOut=OMAnimation 512 0 2615
  567.    set shelfOut x 512
  568.    set shelfOut y 0
  569.    set shelfOut z 0
  570.    set shelfOut touchy 0
  571.    set shelfOut movable 0
  572.    set shelfOut special loseWords
  573.    set shelfOut paused fin
  574.    yield on
  575. ]
  576. ;=======================================
  577. ;=== BOXOUT.4 ===
  578. ;=======================================
  579.  
  580. procedure completion.1
  581. [
  582.    yield off
  583.    ; say "situation_1: 5 words filled the shelf."
  584.    say correctOnShelf
  585.    if correctOnShelf=5
  586.    [
  587.       ; ALL 5 CORRECT ANSWERS
  588.       call perfectReward
  589.    ]
  590.    else
  591.    [
  592.       if correctOnShelf>0
  593.       [
  594.          ; AT LEAST ONE RIGHT ANSWER
  595.          some=OMAnimation 106 142 2617
  596.          set some movable 0
  597.          set some z 99
  598.          set some touchy 0
  599.          set some movable 0
  600.          set some paused sayJuh.1
  601.       ]
  602.       else
  603.       [
  604.          call cleanShelf
  605.       ]
  606.    ]
  607.    yield on
  608. ]
  609. ;=======================================
  610. ;=== COMPLETION.1 ===
  611. ;=======================================
  612.  
  613. procedure sayJuh.1
  614. [
  615.    pause 0.5
  616.    yield off
  617.    drop some
  618.    juh=OMAnimation 201 144 2659
  619.    set juh touchy 0
  620.    set juh moveable 0
  621.    yield on
  622.    call cleanShelf
  623. ]
  624. ;=======================================
  625. ;=== SAYJUH.1 ===
  626. ;=======================================
  627.  
  628. procedure loseWords
  629. [
  630.    yield off
  631.    get shelfOut param 1 Code
  632.    kMagicNumber=350
  633.    get shelfText.0 y ypos.0
  634.    if ypos.0<kMagicNumber
  635.    [
  636.       if -2003=Code
  637.       [
  638.          play shelfText.0 offset 0 9
  639.       ]
  640.    ]
  641.    else
  642.    [
  643.       drop shelfText.0
  644.    ]
  645.    get shelfText.1 y ypos.1
  646.    if ypos.1<kMagicNumber
  647.    [
  648.       if -2003=Code
  649.       [
  650.          play shelfText.1 offset 0 9
  651.       ]
  652.    ]
  653.    else
  654.    [
  655.       drop shelfText.1
  656.    ]
  657.    get shelfText.2 y ypos.2
  658.    if ypos.2<kMagicNumber
  659.    [
  660.       if -2003=Code
  661.       [
  662.          play shelfText.2 offset 0 9
  663.       ]
  664.    ]
  665.    else
  666.    [
  667.       drop shelfText.2
  668.    ]
  669.    get shelfText.3 y ypos.3
  670.    if ypos.3<kMagicNumber
  671.    [
  672.       if -2003=Code
  673.       [
  674.          play shelfText.3 offset 0 9
  675.       ]
  676.    ]
  677.    else
  678.    [
  679.       drop shelfText.3
  680.    ]
  681.    get shelfText.4 y ypos.4
  682.    if ypos.4<kMagicNumber
  683.    [
  684.       if -2003=Code
  685.       [
  686.          play shelfText.4 offset 0 9
  687.       ]
  688.    ]
  689.    else
  690.    [
  691.       drop shelfText.4
  692.    ]
  693.    yield on
  694. ]
  695. ;=======================================
  696. ;=== LOSE WORDS ===
  697. ;=======================================
  698.  
  699.  
  700. procedure check_total
  701. [
  702.   yield off
  703.   if total=5
  704.   [
  705.      areWeDoneYet=1
  706.   ]
  707.   yield on
  708. ]
  709. ;=======================================
  710. ;=== CHECK_TOTAL ===
  711. ;=======================================
  712.  
  713. procedure perfectReward
  714. [
  715.    yield off
  716.    set mitAm visible 0
  717.    drop rrWord
  718.    rrJump=OMAnimation 0 0 2603
  719.    set rrJump touchy 0
  720.    set rrJump movable 0
  721.    mitWatch=OMAnimation 0 0 2531
  722.    set mitWatch touchy 0
  723.    set mitWatch movable 0
  724.    set rrJump paused doReward
  725.    yield on
  726. ]
  727. ;=======================================
  728. ;=== PERFECT REWARD ===
  729. ;=======================================
  730.  
  731. procedure doReward
  732. [
  733.    drop rrJump
  734.    yield off
  735.    rrReward_1=OMAnimation 0 0 2528
  736.    set rrReward_1 movable 0
  737.    set rrReward_1 paused restoreState
  738.    rrIn=OMAnimation 106 142 2514
  739.       set rrIn movable 0
  740.       set rrIn z 1
  741.       set rrIn visible 0
  742.       set rrIn touchy 0
  743.       set rrIn movable 0
  744.    mitIn=OMAnimation 0 175 2516
  745.       set mitIn movable 0
  746.       set mitIn z 0
  747.       set mitIn visible 0
  748.       set mitIn touchy 0
  749.       set mitIn movable 0 
  750.    yield on
  751. ]
  752. ;=======================================
  753. ;=== DO REWARD ===
  754. ;=======================================
  755.  
  756. procedure restoreState
  757. [
  758.    yield off
  759.    drop rrReward_1
  760.    drop mitWatch
  761.    set rrIn visible 1
  762.    set mitIn visible 1
  763.    play rrIn
  764.    play mitIn
  765.    set rrIn paused cleanShelf
  766.    yield on
  767. ]
  768. ;=======================================
  769. ;=== RESTORE STATE ===
  770. ;=======================================
  771.  
  772. procedure cleanShelf
  773. [
  774.    yield off
  775.    drop keeperAO
  776.    drop shelfAll
  777.    bottomCover=OMAnimation 0 0 2505
  778.    set bottomCover z 99
  779.    set bottomCover touchy 0
  780.    set bottomCover movable 0
  781.    shelfOut=OMAnimation 512 0 2616
  782.    set shelfOut x 512
  783.    set shelfOut y 0
  784.    set shelfOut z 0
  785.    set shelfOut touchy 0
  786.    set shelfOut movable 0
  787.    set shelfOut special loseWords
  788.    set shelfOut paused fin
  789.    yield on
  790. ]
  791. ;=======================================
  792. ;=== CLEAN SHELF ===
  793. ;=======================================
  794.  
  795. procedure play_mit
  796. [
  797.    yield off
  798.    set goButton touchy 0
  799.    set mitAm touchy 0
  800.    stopIt=RHotSpot 2 1 638 399
  801.    set stopIt hit dummy
  802.    play RECEIVER
  803.    steam=OMAnimation 20 124 2563
  804.    set steam touchy 0
  805.    set steam movable 0
  806.    set steam z 0
  807.    play steam
  808.    set steam paused drop_steam
  809.    yield on
  810. ]
  811. ;=======================================
  812. ;=== PLAY MIT PIPE ANIMATION ===
  813. ;=======================================
  814.  
  815. procedure drop_steam
  816. [
  817.    yield off
  818.    set mitAm touchy 1
  819.    set goButton touchy 1
  820.    drop steam
  821.    drop stopIt
  822.    yield on
  823. ]
  824. ;=======================================
  825. ;=== DROP THE STEAM ===
  826. ;=======================================
  827.  
  828. procedure fin
  829. [
  830.    yield off
  831.    schedule 15 moveOn
  832.    yield on
  833. ]
  834. ;=======================================
  835. ;=== FIN ===
  836. ;=======================================
  837.  
  838. procedure moveOn
  839. [
  840.    yield off
  841.    drop trinkets
  842.    relay reader2.mps
  843.    yield on
  844. ]
  845. ;=======================================
  846. ;=== MOVEON ===
  847. ;=======================================
  848.  
  849. procedure resetHdlr
  850. [
  851.    yield off
  852.    click1=RSound 10043 -1
  853.    play click1 start
  854.    drop trinkets
  855.    relay sorter.mps
  856.    yield on
  857. ]
  858. ;=======================================
  859. ;=== RESETHDLR ===
  860. ;=======================================
  861.  
  862. procedure continueHdlr
  863. [
  864.    yield off
  865.    click2=RSound 10043 -1
  866.    play click2 start
  867.    drop trinkets
  868.    relay reader2.mps
  869.    yield on
  870. ]
  871. ;=======================================
  872. ;=== CONTINUEHDLR  ===
  873. ;=======================================
  874.  
  875.